Developer CD Series 1989 …il & Dave's Excellent CD/Excellent CD HFS.raw/Utilities/ResEdit/Examples/PExamples/Source/ResDisp.a

Text File | 1989-01-01 | 5.3 KB | 196 lines | [TEXT/MPS ]

; File ResDisp.a
;
; COPYRIGHT (C) 1984-1989 Apple Computer,Inc.
; All rights reserved

; Linking with this code allows Pickers, Editors or whatever to call
; certain routines in ResEdit’s CODE segments.

    PROC

ApplScratch    equ    $a78


            EXPORT      CallPBirth
            EXPORT      CallEBirth
            EXPORT      CallMenu
            EXPORT      CallEvent
            EXPORT      CallInfoUpdate
            EXPORT      PassMenu

;-----------------------------------------------------------------------------------
;
;   CallEBirth(thing:Handle;parent:ParentHandle;id:Integer);
;   CallPBirth(thing:Handle;parent:ParentHandle;id:Integer);
;
;-----------------------------------------------------------------------------------
CallEBirth  MOVE.L      (SP)+,A0
            MOVE.L      #0,-(SP)
            BRA.S       CallIt

CallPBirth  MOVE.L      (SP)+,A0
            MOVE.L      #2,-(SP)
;           BRA.S       CallIt


CallIt
            MOVE.L      A0,-(SP)

; Calls back to main program
;         .DEF     CallEBirth
;         .DEF     CallPBirth
            EXPORT      CallEvent
            EXPORT      CallMenu
            EXPORT      CallInfoUpdate

            EXPORT      PassMenu
            EXPORT        GiveSubEBirth
            EXPORT        GetQuickDrawVars
            EXPORT        NeedToRevert

            EXPORT      WindAlloc
            EXPORT        SendRebuildToPickerAndFile
            EXPORT        WindReturn
            EXPORT      WindList
            EXPORT      WindOrigin
            EXPORT      WindSetup
            EXPORT      AbleMenu
            EXPORT        CWindSetup
            EXPORT      AddNewRes
            EXPORT      BubbleUp
            EXPORT      BuildType
            EXPORT        GrowMyWindow
            EXPORT      ConcatStr
            EXPORT        PickStdRows
            EXPORT        PickStdWidth
            EXPORT      CopyRes
            EXPORT      CurrentRes
            EXPORT      DoListEvt
            EXPORT      DupPick
            EXPORT        SysResFile
            EXPORT        RevertThisResource
            EXPORT      FixHand
            EXPORT      GetStr
            EXPORT      Get1Index
            EXPORT        RemoveResource
            EXPORT        Get1Res
            EXPORT      GiveEBirth
            EXPORT      HandleCheck
            EXPORT      MetaKeys
            EXPORT      NewRes
            EXPORT      PickEvent
            EXPORT      PickInfoUp
            EXPORT      PickMenu
            EXPORT      ScrapCopy
            EXPORT      ScrapEmpty
            EXPORT      ScrapPaste
            EXPORT      SetResChanged
            EXPORT      SetETitle
            EXPORT      RevertResource
            EXPORT      ShowInfo

            EXPORT      MyCalcMask

            EXPORT      GiveThisEBirth

            EXPORT    KillCache
            EXPORT    DefaultListCellSize
            EXPORT    DoKeyScan
            EXPORT    TypeToString
            EXPORT    FrameDialogItem
            EXPORT    FlashDialogItem
            EXPORT    AlreadyOpen
            EXPORT    EditorWindSetup
            EXPORT    GetWindowTitle
            EXPORT    Abort
            EXPORT    DisplayAlert
            EXPORT    WasAborted
            EXPORT    GetType
            EXPORT    CheckError
            EXPORT    CloseNoSave
            EXPORT    SetTheCursor

CallOut            JSR    DivingBoard
WindAlloc       JSR DivingBoard
SendRebuildToPickerAndFile    JSR DivingBoard    ; 3
WindList        JSR DivingBoard
WindOrigin      JSR DivingBoard
WindSetup       JSR    DivingBoard

; Common stuff
AbleMenu        JSR DivingBoard
CWindSetup        JSR DivingBoard
AddNewRes       JSR DivingBoard
BubbleUp        JSR DivingBoard            ;10
BuildType       JSR DivingBoard
GrowMyWindow    JSR DivingBoard
CopyRes            JSR DivingBoard
ConcatStr       JSR    DivingBoard
PickStdRows        JSR    DivingBoard
PickStdWidth    JSR    DivingBoard
CurrentRes         JSR    DivingBoard
DoListEvt          JSR    DivingBoard
DupPick               JSR    DivingBoard
SysResFile         JSR    DivingBoard            ;20
RevertThisResource    JSR    DivingBoard
FixHand               JSR    DivingBoard
GetStr               JSR    DivingBoard
Get1Index          JSR    DivingBoard
RemoveResource    JSR    DivingBoard
Get1Res            JSR    DivingBoard
GiveEBirth         JSR    DivingBoard
HandleCheck        JSR    DivingBoard
MetaKeys           JSR    DivingBoard
NewRes               JSR    DivingBoard            ;30
PickEvent          JSR    DivingBoard
PickInfoUp         JSR    DivingBoard
PickMenu           JSR    DivingBoard
RevertResource  JSR    DivingBoard
ScrapCopy          JSR    DivingBoard
ScrapEmpty         JSR    DivingBoard
ScrapPaste         JSR    DivingBoard
SetResChanged    JSR    DivingBoard
ShowInfo           JSR    DivingBoard
SetETitle          JSR    DivingBoard            ;40

CallEvent          JSR    DivingBoard
CallMenu           JSR    DivingBoard
CallInfoUpdate    JSR    DivingBoard
PassMenu           JSR    DivingBoard
GiveSubEBirth      JSR    DivingBoard
GetQuickDrawVars JSR    DivingBoard
NeedToRevert    JSR    DivingBoard
spare8            JSR    DivingBoard          ; UNUSED *****        ; 50
MyCalcMask        JSR    DivingBoard        ; 51
GiveThisEBirth    JSR    DivingBoard        ; 52
WindReturn        JSR    DivingBoard        ; 53
KillCache        JSR    DivingBoard        ; 54
DefaultListCellSize
                JSR    DivingBoard        ; 55
DoKeyScan        JSR    DivingBoard        ; 56
TypeToString    JSR    DivingBoard        ; 57
FrameDialogItem    JSR    DivingBoard        ; 58
FlashDialogItem    JSR    DivingBoard        ; 59
AlreadyOpen        JSR    DivingBoard        ; 60
EditorWindSetup    JSR    DivingBoard        ; 61
GetWindowTitle    JSR    DivingBoard        ; 62
Abort            JSR    DivingBoard        ; 63
DisplayAlert    JSR    DivingBoard        ; 64
WasAborted        JSR    DivingBoard        ; 65
GetType            JSR    DivingBoard        ; 66
CheckError        JSR DivingBoard        ; 67
CloseNoSave        JSR DivingBoard        ; 68
SetTheCursor    JSR DivingBoard        ; 69


            ; Max 70

DivingBoard
            LEA            CallOut+4,A1
            MOVE.L      (SP)+,A0
            SUB.L       A1,A0
            ADD.L       ApplScratch,A0
            MOVE.L      (A0),A0
            JMP            (A0)

    END